a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


**F I LE*®1D**FORVM 
FFFFFFFFFE 000000 RRRRRRRR VV VV MM MM 
FFFFFFFFFF 000000 RRRRRRRR VV VV MM MM 
FF 00 OO RR RR VV VV MMMM MMMM 
FF 00 00 RR RR VV VV MMMM MMMM 
FF 00 OO RR RR VV VV MM MM MM 
FF 00 OO RR RR VV VV A MM OMM 
FFFFFFFF 00 00 RRRRRRRR VV VV MM MM 
FFFFFFFF 00 00 RRRRRRRR VV VV MM MM 
FF 00 00 RR RR VV VV MM MM 
FF 00 OO RR R VV VV MM MM 
FF 00 RR RR VV VV MM MM ceee 
FF 00 00 RR RR VW VV MM MM eee 
FF 000000 RR RR VV MM MM eeee 
FF 000000 RR RR VV MM MM eoee 
LL IIIIII SSSSSSSS 
LL III SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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FORSSVM 16-Sep 4 VAX-11 Bliss-32 V4.0-742 1] 

14-Sep- at 99: 35: 38 DISKSVMSMASTER: CFORRTL. SRCJFORVM. B3204 * a)! 
: 1 48 MODULE renee ( ! Internal FORTRAM Virtual memory allocation/deallocation 
; g 6 IDENT = .% ~001" ' File: FORVM.B32 
3 4 004 1 BEGIN 
ee oe 
: Gog? : i eeeeeeeeeeeeeeeeeeeeeeeeneneeeeeeeeeeereeeeeeeeeeeeeeeeeeeeeeeeneeeeereeeene 
; ha z 
i .. 0009 1 is COPYRIGHT (c) 1978, 1980, 1982, 1984 By * 
; W 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 1} Bats ! is ALL RIGHTS RESERVED * 
Ps ra 
3 i $b18 1 !® THIS eS. is FURNISHED UNDER A LICENSE AND MAY BE USED AND copree . 
. So. 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH baceN SE AND WITH THE * 
:°). 0015 1 !* INCLUSION OF Rae ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
> VF 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
; 18 dt : ‘* TRANSFERRED. * 
Zz !® ® 
; @ 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
[. 2s 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $¢ OO¢s . ‘* CORPORATION. . 
3 i® ® 
: 2& 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
oe 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0026 1 !* © 
s 0027 1 !* + 
3 28 0028 1 Nae e reer eee eR RAE AAA AA AAA T AAA AAA AAA AA AAEAAAKARKARAAAAREEREREE 
3 9 0029 1! 
3 $4 $086 1 !e¢ 
a: 0031 1 =! FACILITY:FORTRAN support Library 
; > O08 1! 
.-.) oe 00353 1 ! ABSTRACT: 
3 34 0034 1 
3 35 0035 1! Dynamic virtual wont? allocation and deallocation. 
; = 0036 1! FORTRAN interface with LIBSGET_VM and LIBSFREE_VM 
3 $ it h4 : resourec allocation procedures. 
; 0039 1 ! ENVIRONMENT: User access mode; mixture of AST level or not. | 
,; 6 0040 1! This module is both shared and non-shared. Hence all 
: (41 0041 1! EXTERNAL references are of type GENERAL to prevent data truncation errors 
: $§ Ooe : when Linking with the non-shared FORTRAN compatibility routines. 
: : | 
3 re} 8 rt: : : AUTHOR: T. Hastings, CREATION DATE: 4-Dec-77; Version 01 
: 646 0046 1 ! MODIFIED BY: | 
s 67 0047 1! 
; 68 0048 1! Q1 - original 
; «649 0049 1! O- - Use. FORSSSIG_ FATINT. iy 5-Dec-77 
.. = 0050 1! 0- - Don't clear memor fF H 8-Dec-77 
;. 0051 1 ! 0-04 = Change REQUIRE files oe VAX system ayi ld, aie r.§ -Apr-78 
3 2g O36 1 ! 0-05 = Add optional second arg (FCB on pale 
3 55 1! 0- $ - Use F RS$$SIG_DATCOR instead of F Rissicn ein ! fovune-70 
: ee 054 1! O- - Make all extérnal references comme RAL pings, this module | 
: 6 055 1: - is both shared and non=shar H $- 
3 2$ B28 1 ! 0-08 = Change file name to FORVM.B32, wa d'change th he names of | 
Riedl a 057 1! the REQUIRE files similarly. JBS 14-N 


-_— 


5 
ioe" 1$-$00-1984 00:97:50 YANCTT Buisecs2 ya soa742 | page 2 
28 0038 ! ;_ 1-001 - Update version number and copyright notice. JBS 16-NOV-78 
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FORSSVM 1b-se 1984 VAX-11 Bliss-32 V4.0-742 Page 3 
1-001 aaa 1 99 Hi 36 DISKSVMSMASTER CFORRTL. SRCJFORVM.B32:1° (2) 
; $6} 8960 1! 
; © 1 1°! TABLE OF CONTENTS: 
3; § bps 7 | 
; 666 065 1 
: 69 Boee 1 FORWARD ROUTINE 
; @& 065 1 FORSSGET_VM, ' Allocate virtual memory - interface 
: of Opes : FORSSFREE_VM: NOVALUE; ! Deallocate virtual memory - interface 
: 69 0068 1 
; B88? 1! 
co) ae 070 1 ! INCLUDE FILES: 
; 7 87) 1 7 
Tye: Le} 1 
| a 0073 1 REQUIRE ‘RTLML:FORERR’:;: ' FORTRAN error numbers 
> 75 0141 1 REQUIRE "RTLIN:RTLPSECT'; i Define DECLARE_PSECTS macro 
; #8 0589 1 | 
F 08 0 38 ' MACROS: 
: 80 0240 1! NONE 
, 8 0241 1! 
3 8 bseg 1 ! EQUATED SYSMBOLS: 
; § 0243 1! 
; BS Bsee 1 
3; #85 0245 1 
; 686 0246 1! 
3 87 0247 1 ! PSECT DECLARATIONS: 
; 8 0248 1! 
; 0249 1 
: oe Bseo : DECLARE_PSECTS (FOR); ! declare PSECTs for FORS facility 
: 9 0958 1! 
: 9 025 1 ! OWN STORAGE: 
3; 694 Ose BB 
; 0255 1 
; | «9%6 0256 1 ! EXTERNAL REFERENCES: 
; Ow 0257 1! 
3 a8 8538 : EXTERNAL ROUTINE 
: 100 $580 1 !+ 
; 101 ose) 1 ! MAINTENANCE NOTE: Since this module is called by FORTRAN compatibility 
3 106 0 o¢ 1 ! routines which are un-shared and the entry points are not vectored, 
s; 0265 1 ! a separate copy of this module is Linked with the user program when 
: 104 64 1! the user calls a FORTRAN compet to ]* ity routine. In order to prevent 
s 105 65 1 ! data truncation errors from the Linker, all external references are 
: 106 66 1 ! of addressing mode general (rather than word displacement) even for 
: 107 0267 1 ! the same PSECT. 
: 198 + ass 
: 110 % 1 FORSSSIGNAL_STO: ADDRESSING_MODE (GENERAL) NOVALUE, ' FORTRAN SIGNAL_STOP for current unit 
s 111 71 «#1 FORSSSIG_DATCOR: ADDRESSING_MODE (GENERAL) NOVALUE, ' FORTRAN SIGNAL STOP OTS$_INTDATCOR 
: 16 i 1 ' INTERNAL DATA CORRUPTED IN RUN-TIME LIBRAR 
3; (11 73 «1 FORS$SIG_NO_LUB: ADDRESSING_MODE (GENERAL ) NOVALUE, ! FORTRAN SIGNAL_STOP when no current LUB/IS 
3 116 74 «1 LIBSGET_ JM: ADDRESSING MODE (GENERAL) ' LIBRARY allocate virtual memory 
3 M32 ? ' LIBSFREE_VM: ADDRESSING_MODE (GENERALS; ' LIBRARY deallocate virtual memory 


cs | 
FORSSVM 16-Sep-1984 00:57: VAX-11 Bliss-32 V4.0-742 Page 4 
1-001 1o-85b-1982 93:85:38 SN cSumGMASTER SCY ORRTC SRCIFORVM.B32—%°" (35 
GLOBAL ROUTINE FORSSGET_VM ( ' Allocate dynenic virtual memory 
NUM ° ! longword size in bytes 
LOGICAL_UNIT) ! optional logical unit (if LUB/ISB/RAB not allocated) 
= 


ae 
FUNCTIONAL DESCRIPTION: 


| 
| 
Allocates n virtually contiguous bytes at an arbitrary place in 
the program region and returns the virtual address of the first byte. 
See description of Library LIBSGET_VM for details. 
This procedure is provided only for convenience to FORTRAN support Library. 
It checks for errors and SIGNAL_STOPs any. 
It does not clear core for speed. 
| 


CALLING SEQUENCE: 
ALLOC_ADR.wa.v = FORSSGET_VM (NUM_BYTES.rlu.v C, logical_unit.rlu.vJ) 
INPUT PARAMETERS: 


num_bytes is an wares longword integer value 

specifying the number of virtually contiguous bytes to 
be allocated. Sufficient pages are allocated to 
satisfy the request. however, the program should not 
reference before the first byte address assigned 
(base_address) beyond the last byte assigned 
(base_adr+num_bytes - 1) since it may be assigned to 
another procedure. 


COOCCCOCOCOOCOOCOCoOO 


Mrrorornororoprororororororpornr 


OOO 00000090000 0900000008 I~ 
WN 9 CONOUS WN —O0O~ 


MFWN —OOONOULSWN OOO 


SOOOCOCOCOCOOCOOOONO 


Clogical_unit.rlu.vJ Optional logical unit number. Used only if 
an error occurs and LUB/ISB/RAB is not already allocated. 


OUTPUT PARAMETERS: 
None. 
IMPLICIT INPUTS: 
OTSS$A_CUR_LUB contains the address of the current LUB/ISB/RAB 
for which any errors detected will be signaled. 
See also LIBSGET_VM. 
IMPLICIT OUTPUTS: 
See LIBSGET_VM. 
FUNCTION VALUE: 


The address of the block allocated is returned 
as the function value. 


SIDE EFFECTS: 
The following errors are SIGNAL_STOPped: 
FORS_INSVIRMEM indicates ‘INSUFFICIENT VIRTUAL MEMORY’ when the 
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$$VM 1b-se -1984 00:57: VAX-11 Bliss-32 V4.0-762 Page 5 
001 1 =300 71383 99:35:38 DISKSVMSMASTER:CFORRTL.SRCJFORVM.B32:1> (3) 
>; #175 4 1! program 
3 178 . 7a reg on was attempted to be expanded. 
fae § 1! OTSS_INTDATCOR indicates "BAD BLOCK SIZE either 0 oor 
178 Ne Sere a unetanioas 42 cots 
: 180 § ii An appropriate number of virtual byes are removed from the image 
> «6181 40 1! free memory List. If needed the program region is expanded by 
; ise 41 1! oath the SYSSEXPREG system service. if too large a size is 
: 13? 8 rk : requested or the program region could not be expended as needed. 
TR BES basa 
; 189 5 46 BUILTIN 
EH BEE Fcocatttuntcoum 
: 190 0369 TEMP_ADR; ! Adr. of block allocated 
> 191 0350 IF NOT LIBSGET_VM (NUM_BYTES, TEMP_ADR) 
; 136 0351 THEN 
; #19 8326 BEGIN 
; 138 B827 IF ACTUALCOUNT() GTRU 1 
3 196 0355 FORS$SIG_NO_LUB (FORSK_INSVIRMEM, .LOGICAL_UNIT) 
: 198 0357 FORSSSIGNAL_STO (FORSK_INSVIRMEM) 
: 199 0358 § H 
; 200 0359 RETURN .TEMP_ADR; 
; 201 0360 1 END; ! end of FORSGET_VM routine 
TITLE FORSSVM 
-IDENT \1-001\ 
EXTRN FORSSSIGNAL_STO 
.EXTRN FORSS$SIG_DATCOR 
-EXTRN FORS$SIG_NO_LUB 
-EXTRN LIBSGET_9M, LIBSFREE_VM 
-PSECT _FORSCODE,NOWRT, SHR, PIC,2 
0078 00 ENTRY FORSSGET_VM, Save nothing : 0277 
5E 4 C2 0000 SUBL2 #4, SP : 
E 0D 000 PUSHL SP ; 0350 
04 AC 9F 00007 PUSHAB BYTES 3 
000000006 90 9¢ Fe ‘ ents . P LJSoseT va 3 
01 C 51 14 CMPBs«(AP), #1 : 0353 
—E 18 17 BLEQU 3 
08 af 1) 19 PUSHL  LOGICAL_UNIT ; 0355 
dD 1¢ PUSHL ; 
000000006 00 § 4 35 cals ae FORS$S1G_NO_LUB 3 
000000006 ? PB = CALS ab FORSSSIGNAL_STO ; 0357 
8 6E 06 28: MOVL ‘TEMP_ADR, ao bs ; 0359 
4 RET 3 0 


3; Routine Size: 52 bytes, Routine Base: _FORSCODE + 0000 


1$-$00-198 99:35:58 «SiS cbimGmaSfenschoaRre “SrcatoRva.e3204%° «3% 
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FORSSVM 16-Sep-1984 00:57: VAX-11 Bliss-32 V4.0-742 Page 7 
1-001 1o-88=13Re 90:35:38 DISKSVMSMASTER: LFORRTL.SRCJFORVM.B32: 1° (4) 
03 GLOBAL ROUTINE FORSSFREE_VM ( ! Internal FORTRAN deallocate virtual memory 
NUM_BYT ' size in bed 
! Adr. of block to be deallocated 


: BASE_ADR)- 


Deallocates n virtually contiguous bytes starting at the 
Specs ree virtual address. The number of bytes actually 
allocated is rouned up so that the smallest number of whole quad 
words are de-allocated. Numerous error checks are made to make 
sure that the block being returned is a legimate free area. 


CALLING SEQUENCE: 
CALL FORSSFREE_VM(num_bytes.rlu.v, base_adr.ra.v) 
INPUT PARAMETERS: 


num_bytes is an unsigned integer 
specifying the number of virtually contiguous bytes to 
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be deallocated. 
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FUNCTIONAL DESCRIPTION: 
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i 
4 
' 
i 
2 
$$ : base_adr is the address of 
$$ the first byte to be deallocated. 
33 i QUTPUT PARAMETERS: 
23 9 i None. 
23 9 ' 
33 3 i IMPLICIT INPUTS 
36 9 i OTS$$A_CUR_LUB contains the address of the current LUB/ISB/RAB 
37 9 ! for which the storage is being returned. Any errors 
$36 38 are signaled on the logical unit. 
seh 98 i IMPLICIT OUTPUTS 
4g 00 i The pages are deallocated by calling SDEALTVA. Then the pages 
4 01 : are marked as available in the OWN storage maintained by 
ae 8 : LIBSGET_VM. 
4 0% i COMPLETION STATUS: | 
i 
rk oF yi _— | 
29 88 : SIDE EFFECTS: 
5 10 i Any errors are Signal stopped on the current logical unit. 
3 1 OTSS_INTDATCOR indicates BAD BLOCK ADDRESS 
32 18 PUTS the indicated block back on the image free storage List. 
5 "es 
; 6 BEGIN 


— 


1B-Se0-1984 0:57:30 VAN]! Blisg-32 y4i0c742 Page 


1 1% 
i ; Deallocate virtual memory, SIGNAL_STOP OTSS_INTDATCOR if error 
: : 
3 § —" LIBSFREE_VM (NUM_BYTES, BASE_ADR) THEN FORSSSIG_DATCOR (); 
0000 $8 ENTRY FORSSFREE_VM, Save nothing : 
08 oF PUSHAB BASE_ADR 3 
06 AC OF 38 PUSHAB NUM BYTES ; 
000000006 4 9 4 008 CALLS #2, LIBSFREE_VM 3 
8 E8 QOOOF BLBS ° 3 
000000006 00 00 FB Bo§ CALLS #0, FORSSSIG_DATCOR : 
04 00019 1$: ET 3 
Routine Size: 26 bytes, Routine Base: _FORSCODE + 0034 
0424 1 END 
509 be58 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_FORSCODE 78 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:FORVM/OBJ=O0BJ$:FORVM MSRC$:F ORVM/UPDATE=(ENHS:FORVM) 
Size: 78 code + 0 data bytes 
Run bey 09:03. 0 2 
Elap 


sed T 
tee ay mi n: eer" 
Lexemes/CPU-Min: 17508 

4 Used: 32 pages 
Compilation Complete 
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